home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 September & October / Amiga-CD 1997 #9-10.iso / software / turbobasedemo / beispiele / cdverwaltung / eingabe.rexx < prev    next >
OS/2 REXX Batch file  |  1996-10-16  |  19KB  |  480 lines
  1. /*
  2.  * CDEingabe.rexx
  3.  * ARexx-Skript zu TurboBase     © 1996 J.Pietsch
  4.  */
  5.  
  6. /* Dies wird benötigt, um das Ergebnis von EINGABE in RESULT zurückzuerhalten */
  7. Options Results
  8.  
  9. /* Wir wollen mit TurboBase kommunizieren */
  10. ADDRESS TBASE
  11.  
  12. DEFPUBSCREEN
  13.  
  14. /* Aktuelle Sicht (CDSongs.Ansicht) zum aktuellen Objekt machen */
  15. CONTEXT.MACRO
  16.  
  17. /* ------------------------------------------------------------------------ */
  18. /* Variablen vordefinieren                                                  */
  19. /* ------------------------------------------------------------------------ */
  20. NL='0A'x                /* Neue Zeile */
  21. CDS=0                   /* Anzahl der CDs des CD-SETs */
  22. GCD=0                   /* KEINE Gemischte CD */
  23. CDR=0                   /* Songzeiten NICHT von CDROM einlesen */
  24. i=0                     /* Schleifenzähler */
  25. SZ=0                    /* Schleifenzähler */
  26. FEHLER=1                /* Fehler */
  27. Feld.Songs.SongNr=1     /* SongNummern definieren */
  28. Feld.Songs_1.SongNr=2
  29. Feld.Songs_2.SongNr=3
  30. Feld.Songs_3.SongNr=4
  31. Feld.Songs_4.SongNr=5
  32. Feld.Songs_5.SongNr=6
  33. Feld.Songs_6.SongNr=7
  34. Feld.Songs_7.SongNr=8
  35. Feld.Songs_8.SongNr=9
  36. Feld.Songs_9.SongNr=10
  37. Feld.Songs_10.SongNr=11
  38. Feld.Songs_11.SongNr=12
  39. Feld.Songs_12.SongNr=13
  40. Feld.Songs_13.SongNr=14
  41. Feld.Songs_14.SongNr=15
  42. Feld.Songs_15.SongNr=16
  43. Feld.Songs_16.SongNr=17
  44. Feld.Songs_17.SongNr=18
  45. Feld.Songs_18.SongNr=19
  46. Feld.Songs_19.SongNr=20
  47. Feld.Songs_20.SongNr=21
  48. Feld.Songs_21.SongNr=22
  49. Feld.Songs_22.SongNr=23
  50. Feld.Songs_23.SongNr=24
  51. Feld.Songs_24.SongNr=25
  52. Feld.Songs_25.SongNr=26
  53. Feld.Songs_26.SongNr=27
  54. Feld.Songs_27.SongNr=28
  55. Feld.Songs_28.SongNr=29
  56. Feld.Songs_29.SongNr=30
  57. Feld.Songs_30.SongNr=31
  58. Feld.Songs_31.SongNr=32
  59. Feld.Songs_32.SongNr=33
  60. Feld.Songs_33.SongNr=34
  61. Feld.Songs_34.SongNr=35
  62.  
  63. /* ------------------------------------------------------------------------ */
  64. /* Prüfen, ob Rexxreqtools.library vorhanden ist!                           */
  65. /* ------------------------------------------------------------------------ */
  66. IF ~EXISTS("Libs:Rexxreqtools.library") THEN
  67.  DO
  68.   'message "Konnte die rexxreqtools.library nicht öffnen!" "Hinweis!"'
  69.   EXIT
  70.  END
  71. CALL ADDLIB("rexxreqtools.library",0,-30,0)  /* Rexxreqtools.library öffnen */
  72.  
  73. /* ------------------------------------------------------------------------ */
  74. /* CD-Typ REQUESTER                                                         */
  75. /* ------------------------------------------------------------------------ */
  76. CALL rtezrequest("Welchen CD-Typ möchten Sie eingeben?","CD|Maxi|Set|Video|Abbruch","CD Eingabe",'rt_reqpos=reqpos_centerscr')
  77. IF rtresult=0 | rtresult=5 THEN EXIT
  78. IF rtresult=1 THEN
  79.  DO
  80.   ART="CD" ; CDS=1
  81.  END
  82. IF rtresult=2 THEN
  83.  DO
  84.   ART="MAXI" ; CDS=1
  85.  END
  86. IF rtresult=4 THEN
  87.  DO
  88.   ART="VIDEO" ; CDS=1
  89.  END
  90. IF rtresult=3 THEN
  91.   /* ------------------------------------------------------------------------ */
  92.   /* CD-SET REQUESTER                                                         */
  93.   /* ------------------------------------------------------------------------ */
  94.   DO WHILE CDS=0
  95.    CDS=rtgetlong("3","Wieviele CDs hat das SET?","Frage:",,'rt_reqpos=reqpos_centerscr')
  96.    IF rtresult=0 then exit
  97.    IF CDS <= 1 | CDS >=16 THEN
  98.     DO
  99.      CALL rtezrequest("Bitte Werte zwischen 2...15!","Okay","Hinweis!",' rt_reqpos=reqpos_centerscr')
  100.      CDS=0
  101.     END
  102.    IF CDS >=1 & CDS <=15 THEN ART = "CD "
  103.   END
  104.  
  105. /* ------------------------------------------------------------------------ */
  106. /* Frage: Gemischte CD eingeben? REQUESTER                                  */
  107. /* ------------------------------------------------------------------------ */
  108. IF CDS=1 & ART ~= "MAXI" THEN
  109.  DO
  110.   CALL rtezrequest("Sind die Songs von verschiedenen Interpreten?","Ja|Nein|Abbruch","Frage:",'rt_reqpos=reqpos_centerscr')
  111.   IF rtresult=0 | rtresult=3 THEN EXIT
  112.   IF rtresult=1 THEN GCD=1
  113.  END
  114.  
  115. /* ------------------------------------------------------------------------ */
  116. /* AsimCDFS vorhanden? wenn dann SongNr und Zeiten von CD einlesen          */
  117. /* ------------------------------------------------------------------------ */
  118. IF EXISTS("DEVS:asimcdfs.device") & CDS = 1 THEN
  119.  DO
  120.   /* ------------------------------------------------------------------------ */
  121.   /* CD Einlegen REQUESTER                                                    */
  122.   /* ------------------------------------------------------------------------ */
  123.   CDR=1
  124.   IF EXISTS("SYS:AsimCDFS/CDTool") & ~EXISTS("CD0:MAUD/Track.1") THEN ADDRESS COMMAND 'SYS:AsimCDFS/CDTool CD0: Eject'
  125.   CALL rtezrequest("Bitte legen Sie die CD ins CDROM-Laufwerk!","Okay|Abbruch","Meldung:",'rt_reqpos=reqpos_centerscr')
  126.   IF rtresult=0 | rtresult=2 THEN EXIT
  127.   IF rtresult=1 THEN
  128.    DO WHILE ~EXISTS("CD0:MAUD/Track.1")
  129.     CALL rtezrequest("Entweder haben Sie keine CD eingelegt, oder"NL"Sie benutzen nicht AsimCDFS, oder warten"NL"Sie solange, bis die CD vom System erkannt wurde!","Okay|Abbruch","FEHLER!!!",'rt_reqpos=reqpos_centerscr')
  130.     IF rtresult=0 | rtresult=2 THEN EXIT
  131.    END
  132.    ADDRESS COMMAND 'list CD0:MAUD all pat Track.? files lformat %n,%l >RAM:CDSongs.txt'
  133.    ADDRESS COMMAND 'list CD0:MAUD all pat Track.?? files lformat %n,%l >>RAM:CDSongs.txt'
  134.    IF ~OPEN(DName,"RAM:CDSongs.TXT",R) THEN
  135.      DO
  136.       'message "FEHLER! - Konnte die Datei: RAM:CDSongs.txt nicht öffnen!" "Hinweis!"'
  137.       EXIT
  138.      END
  139.    DO WHILE ~EOF(DName)
  140.     ZI=READLN(DName)           /* Zeilen Inhalt einlesen */
  141.     ZL=LENGTH(ZI)              /* Länge der Zeile ermitteln */
  142.     NR=LASTPOS(",",ZI)         /* Von hinten das Komma suchen */
  143.     DG.i=RIGHT(ZI,ZL-NR)       /* Dateigröße ermitteln */
  144.     i=i+1
  145.    END
  146.    Y=CLOSE(DName)
  147.    ADDRESS COMMAND 'DELETE >NIL: RAM:CDSongs.TXT'
  148.    SNR.0=i-1
  149.    IF SNR.0 >=36 THEN
  150.     DO
  151.      CALL rtezrequest("Die eingelegte CD hat "SNR.0" Songs!"NL"Maximal 35 Songs sind z.Z. erlaubt!"NL"Es werden nur 35 Songs eingelesen!!!","Okay","Hinweis:",'rt_reqpos=reqpos_centerscr')
  152.      SNR.0=35
  153.     END
  154.  END
  155.  
  156. /* ------------------------------------------------------------------------ */
  157. /* Songanzahl REQUESTER                                                     */
  158. /* ------------------------------------------------------------------------ */
  159. i=0
  160. IF CDR=0 THEN
  161.  DO WHILE i~=CDS & FEHLER~=0
  162.   IF CDS =1 THEN SNR.i=rtgetlong("10","Wieviele Songs hat die CD?","Frage:",,'rt_reqpos=reqpos_centerscr')
  163.   IF CDS >1 THEN SNR.i=rtgetlong("10","Wieviele Songs hat "CD" "i+1"?","Frage:",,'rt_reqpos=reqpos_centerscr')
  164.   IF rtresult=0 then exit
  165.   IF SNR.i <= 0 | SNR.i >=36 THEN
  166.    DO
  167.     CALL rtezrequest("Bitte Werte zwischen 1...35!","Okay","Hinweis!",' rt_reqpos=reqpos_centerscr')
  168.     FEHLER=1
  169.    END
  170.   IF SNR.i >= 1 & SNR.i <=35 THEN i=i+1
  171.  END
  172.  
  173. /* ------------------------------------------------------------------------ */
  174. /* CD Interpret REQUESTER                                                   */
  175. /* ------------------------------------------------------------------------ */
  176. i=0
  177. DO WHILE i~=CDS
  178.  IF CDS =1 & ART~="MAXI" THEN CDI.i=rtgetstring(,"Interpret der CD?"NL"* = Verschiedene Interpreten","Frage:",,'rt_reqpos=reqpos_centerscr')
  179.  IF CDS =1 & ART="MAXI" THEN CDI.i=rtgetstring(,"Interpret der CD?","Frage:",,'rt_reqpos=reqpos_centerscr')
  180.  IF CDS >1 THEN CDI.i=rtgetstring(,"Interpret von "CD" "i+1"?"NL"* = Verschiedene Interpreten","Frage:",,'rt_reqpos=reqpos_centerscr')
  181.  IF rtresult=0 then exit
  182.  IF CDI.i="*" THEN CDI.i="Various Arts"
  183.  i=i+1
  184. END
  185.  
  186. /* ------------------------------------------------------------------------ */
  187. /* CD Titel REQUESTER                                                       */
  188. /* ------------------------------------------------------------------------ */
  189. i=0
  190. DO WHILE i~=CDS
  191.  IF CDS =1 THEN CDT.i=rtgetstring(,"Titel der CD?","Frage:",,'rt_reqpos=reqpos_centerscr')
  192.  IF CDS >1 THEN CDT.i=rtgetstring(,"Titel von "CD" "i+1"?","Frage:",,'rt_reqpos=reqpos_centerscr')
  193.  IF rtresult=0 then exit
  194.  i=i+1
  195. END
  196.  
  197. /* ------------------------------------------------------------------------ */
  198. /* DATEN in einen neuen DATENSATZ schreiben                                 */
  199. /* ------------------------------------------------------------------------ */
  200. i=0
  201. GETATTR INDEX ; IND=RESULT
  202. DO WHILE i~=CDS
  203.  NEW                                   /* Neuen Datensatz (leeren) erzeugen */
  204.  Feld.MediumInterpret=CDI.i                   /* MediumInterpret definieren */
  205.  Feld.MediumTitel=CDT.i                           /* MediumTitel definieren */
  206.  Feld.Songs.SongInterpret=""             /* Erster SongInterpret definieren */
  207.  IF i=0 & ART == "CD" | ART = "MAXI" | ART = "VIDEO" THEN Feld.Typ=ART
  208.  IF i>=0 & ART == "CD "                                    THEN Feld.Typ=ART||i+1
  209.  CHANGE STEM Feld FIELDS MediumTitel MediumInterpret Typ
  210.  IF CDR=1 & ART=="CD" | ART=="VIDEO" | ART=="MAXI" THEN
  211.     DO
  212.      Feld.Songs.Zeit="00:"right((DG.0%176400)%60,2,"0")":"right((DG.0%176400)//60,2,"0")
  213.      CHANGE STEM Feld FIELDS Songs.SongNr Songs.Zeit
  214.      SNR.i=(SNR.i)-1
  215.      IF SNR.i >=1 THEN
  216.       DO
  217.        Feld.Songs_1.Zeit="00:"right((DG.1%176400)%60,2,"0")":"right((DG.1%176400)//60,2,"0")
  218.        CHANGE STEM Feld FIELDS Songs_1.SongNr Songs_1.Zeit
  219.       END
  220.      IF SNR.i >=2 THEN
  221.       DO
  222.        Feld.Songs_2.Zeit="00:"right((DG.2%176400)%60,2,"0")":"right((DG.2%176400)//60,2,"0")
  223.        CHANGE STEM Feld FIELDS Songs_2.SongNr Songs_2.Zeit
  224.       END
  225.      IF SNR.i >=3 THEN
  226.       DO
  227.        Feld.Songs_3.Zeit="00:"right((DG.3%176400)%60,2,"0")":"right((DG.3%176400)//60,2,"0")
  228.        CHANGE STEM Feld FIELDS Songs_3.SongNr Songs_3.Zeit
  229.       END
  230.      IF SNR.i >=4 THEN
  231.       DO
  232.        Feld.Songs_4.Zeit="00:"right((DG.4%176400)%60,2,"0")":"right((DG.4%176400)//60,2,"0")
  233.        CHANGE STEM Feld FIELDS Songs_4.SongNr Songs_4.Zeit
  234.       END
  235.      IF SNR.i >=5 THEN
  236.       DO
  237.        Feld.Songs_5.Zeit="00:"right((DG.5%176400)%60,2,"0")":"right((DG.5%176400)//60,2,"0")
  238.        CHANGE STEM Feld FIELDS Songs_5.SongNr Songs_5.Zeit
  239.       END
  240.      IF SNR.i >=6 THEN
  241.       DO
  242.        Feld.Songs_6.Zeit="00:"right((DG.6%176400)%60,2,"0")":"right((DG.6%176400)//60,2,"0")
  243.        CHANGE STEM Feld FIELDS Songs_6.SongNr Songs_6.Zeit
  244.       END
  245.      IF SNR.i >=7 THEN
  246.       DO
  247.        Feld.Songs_7.Zeit="00:"right((DG.7%176400)%60,2,"0")":"right((DG.7%176400)//60,2,"0")
  248.        CHANGE STEM Feld FIELDS Songs_7.SongNr Songs_7.Zeit
  249.       END
  250.      IF SNR.i >=8 THEN
  251.       DO
  252.        Feld.Songs_8.Zeit="00:"right((DG.8%176400)%60,2,"0")":"right((DG.8%176400)//60,2,"0")
  253.        CHANGE STEM Feld FIELDS Songs_8.SongNr Songs_8.Zeit
  254.       END
  255.      IF SNR.i >=9 THEN
  256.       DO
  257.        Feld.Songs_9.Zeit="00:"right((DG.9%176400)%60,2,"0")":"right((DG.9%176400)//60,2,"0")
  258.        CHANGE STEM Feld FIELDS Songs_9.SongNr Songs_9.Zeit
  259.       END
  260.      IF SNR.i >=10 THEN
  261.       DO
  262.        Feld.Songs_10.Zeit="00:"right((DG.10%176400)%60,2,"0")":"right((DG.10%176400)//60,2,"0")
  263.        CHANGE STEM Feld FIELDS Songs_10.SongNr Songs_10.Zeit
  264.       END
  265.      IF SNR.i >=11 THEN
  266.       DO
  267.        Feld.Songs_11.Zeit="00:"right((DG.11%176400)%60,2,"0")":"right((DG.11%176400)//60,2,"0")
  268.        CHANGE STEM Feld FIELDS Songs_11.SongNr Songs_11.Zeit
  269.       END
  270.      IF SNR.i >=12 THEN
  271.       DO
  272.        Feld.Songs_12.Zeit="00:"right((DG.12%176400)%60,2,"0")":"right((DG.12%176400)//60,2,"0")
  273.        CHANGE STEM Feld FIELDS Songs_12.SongNr Songs_12.Zeit
  274.       END
  275.      IF SNR.i >=13 THEN
  276.       DO
  277.        Feld.Songs_13.Zeit="00:"right((DG.13%176400)%60,2,"0")":"right((DG.13%176400)//60,2,"0")
  278.        CHANGE STEM Feld FIELDS Songs_13.SongNr Songs_13.Zeit
  279.       END
  280.      IF SNR.i >=14 THEN
  281.       DO
  282.        Feld.Songs_14.Zeit="00:"right((DG.14%176400)%60,2,"0")":"right((DG.14%176400)//60,2,"0")
  283.        CHANGE STEM Feld FIELDS Songs_14.SongNr Songs_14.Zeit
  284.       END
  285.      IF SNR.i >=15 THEN
  286.       DO
  287.        Feld.Songs_15.Zeit="00:"right((DG.15%176400)%60,2,"0")":"right((DG.15%176400)//60,2,"0")
  288.        CHANGE STEM Feld FIELDS Songs_15.SongNr Songs_15.Zeit
  289.       END
  290.      IF SNR.i >=16 THEN
  291.       DO
  292.        Feld.Songs_16.Zeit="00:"right((DG.16%176400)%60,2,"0")":"right((DG.16%176400)//60,2,"0")
  293.        CHANGE STEM Feld FIELDS Songs_16.SongNr Songs_16.Zeit
  294.       END
  295.      IF SNR.i >=17 THEN
  296.       DO
  297.        Feld.Songs_17.Zeit="00:"right((DG.17%176400)%60,2,"0")":"right((DG.17%176400)//60,2,"0")
  298.        CHANGE STEM Feld FIELDS Songs_17.SongNr Songs_17.Zeit
  299.       END
  300.      IF SNR.i >=18 THEN
  301.       DO
  302.        Feld.Songs_18.Zeit="00:"right((DG.18%176400)%60,2,"0")":"right((DG.18%176400)//60,2,"0")
  303.        CHANGE STEM Feld FIELDS Songs_18.SongNr Songs_18.Zeit
  304.       END
  305.      IF SNR.i >=19 THEN
  306.       DO
  307.        Feld.Songs_19.Zeit="00:"right((DG.19%176400)%60,2,"0")":"right((DG.19%176400)//60,2,"0")
  308.        CHANGE STEM Feld FIELDS Songs_19.SongNr Songs_19.Zeit
  309.       END
  310.      IF SNR.i >=20 THEN
  311.       DO
  312.        Feld.Songs_20.Zeit="00:"right((DG.20%176400)%60,2,"0")":"right((DG.20%176400)//60,2,"0")
  313.        CHANGE STEM Feld FIELDS Songs_20.SongNr Songs_20.Zeit
  314.       END
  315.      IF SNR.i >=21 THEN
  316.       DO
  317.        Feld.Songs_21.Zeit="00:"right((DG.21%176400)%60,2,"0")":"right((DG.21%176400)//60,2,"0")
  318.        CHANGE STEM Feld FIELDS Songs_21.SongNr Songs_21.Zeit
  319.       END
  320.      IF SNR.i >=22 THEN
  321.       DO
  322.        Feld.Songs_22.Zeit="00:"right((DG.22%176400)%60,2,"0")":"right((DG.22%176400)//60,2,"0")
  323.        CHANGE STEM Feld FIELDS Songs_22.SongNr Songs_22.Zeit
  324.       END
  325.      IF SNR.i >=23 THEN
  326.       DO
  327.        Feld.Songs_23.Zeit="00:"right((DG.23%176400)%60,2,"0")":"right((DG.23%176400)//60,2,"0")
  328.        CHANGE STEM Feld FIELDS Songs_23.SongNr Songs_23.Zeit
  329.       END
  330.      IF SNR.i >=24 THEN
  331.       DO
  332.        Feld.Songs_24.Zeit="00:"right((DG.24%176400)%60,2,"0")":"right((DG.24%176400)//60,2,"0")
  333.        CHANGE STEM Feld FIELDS Songs_24.SongNr Songs_24.Zeit
  334.       END
  335.      IF SNR.i >=25 THEN
  336.       DO
  337.        Feld.Songs_25.Zeit="00:"right((DG.25%176400)%60,2,"0")":"right((DG.25%176400)//60,2,"0")
  338.        CHANGE STEM Feld FIELDS Songs_25.SongNr Songs_25.Zeit
  339.       END
  340.      IF SNR.i >=26 THEN
  341.       DO
  342.        Feld.Songs_26.Zeit="00:"right((DG.26%176400)%60,2,"0")":"right((DG.26%176400)//60,2,"0")
  343.        CHANGE STEM Feld FIELDS Songs_26.SongNr Songs_26.Zeit
  344.       END
  345.      IF SNR.i >=27 THEN
  346.       DO
  347.        Feld.Songs_27.Zeit="00:"right((DG.27%176400)%60,2,"0")":"right((DG.27%176400)//60,2,"0")
  348.        CHANGE STEM Feld FIELDS Songs_27.SongNr Songs_27.Zeit
  349.       END
  350.      IF SNR.i >=28 THEN
  351.       DO
  352.        Feld.Songs_28.Zeit="00:"right((DG.28%176400)%60,2,"0")":"right((DG.28%176400)//60,2,"0")
  353.        CHANGE STEM Feld FIELDS Songs_28.SongNr Songs_28.Zeit
  354.       END
  355.      IF SNR.i >=29 THEN
  356.       DO
  357.        Feld.Songs_29.Zeit="00:"right((DG.29%176400)%60,2,"0")":"right((DG.29%176400)//60,2,"0")
  358.        CHANGE STEM Feld FIELDS Songs_29.SongNr Songs_29.Zeit
  359.       END
  360.      IF SNR.i >=30 THEN
  361.       DO
  362.        Feld.Songs_30.Zeit="00:"right((DG.30%176400)%60,2,"0")":"right((DG.30%176400)//60,2,"0")
  363.        CHANGE STEM Feld FIELDS Songs_30.SongNr Songs_30.Zeit
  364.       END
  365.      IF SNR.i >=31 THEN
  366.       DO
  367.        Feld.Songs_31.Zeit="00:"right((DG.31%176400)%60,2,"0")":"right((DG.31%176400)//60,2,"0")
  368.        CHANGE STEM Feld FIELDS Songs_31.SongNr Songs_31.Zeit
  369.       END
  370.      IF SNR.i >=32 THEN
  371.       DO
  372.        Feld.Songs_32.Zeit="00:"right((DG.32%176400)%60,2,"0")":"right((DG.32%176400)//60,2,"0")
  373.        CHANGE STEM Feld FIELDS Songs_32.SongNr Songs_32.Zeit
  374.       END
  375.      IF SNR.i >=33 THEN
  376.       DO
  377.        Feld.Songs_33.Zeit="00:"right((DG.33%176400)%60,2,"0")":"right((DG.33%176400)//60,2,"0")
  378.        CHANGE STEM Feld FIELDS Songs_33.SongNr Songs_33.Zeit
  379.       END
  380.      IF SNR.i >=34 THEN
  381.       DO
  382.        Feld.Songs_34.Zeit="00:"right((DG.34%176400)%60,2,"0")":"right((DG.34%176400)//60,2,"0")
  383.        CHANGE STEM Feld FIELDS Songs_34.SongNr Songs_34.Zeit
  384.       END
  385.      END
  386.  
  387.  IF ART=="MAXI" THEN                                             /* Maxi CD */
  388.   DO
  389.    SNR.i=(SNR.i)+1
  390.    Feld.Songs.SongInterpret=CDI.i        /* Erster SongInterpret definieren */
  391.    Feld.Songs.SongTitel=CDT.i                /* Erster SongTitel definieren */
  392.    Feld.Songs_1.SongInterpret=CDI.i
  393.    Feld.Songs_1.SongTitel=CDT.i
  394.    Feld.Songs_2.SongInterpret=CDI.i
  395.    Feld.Songs_2.SongTitel=CDT.i
  396.    Feld.Songs_3.SongInterpret=CDI.i
  397.    Feld.Songs_3.SongTitel=CDT.i
  398.    Feld.Songs_4.SongInterpret=CDI.i
  399.    Feld.Songs_4.SongTitel=CDT.i
  400.    Feld.Songs_5.SongInterpret=CDI.i
  401.    Feld.Songs_5.SongTitel=CDT.i
  402.    Feld.Songs_6.SongInterpret=CDI.i
  403.    Feld.Songs_6.SongTitel=CDT.i
  404.    Feld.Songs_7.SongInterpret=CDI.i
  405.    Feld.Songs_7.SongTitel=CDT.i
  406.    Feld.Songs_8.SongInterpret=CDI.i
  407.    Feld.Songs_8.SongTitel=CDT.i
  408.    Feld.Songs_9.SongInterpret=CDI.i
  409.    Feld.Songs_9.SongTitel=CDT.i
  410.    CHANGE STEM Feld FIELDS Songs.SongTitel Songs.SongInterpret
  411.    j=1
  412.    DO WHILE j~=SNR.i
  413.     CHANGE STEM Feld FIELDS 'Songs_'j'.SongTitel' 'Songs_'j'.SongInterpret'
  414.     j=j+1
  415.    END
  416.   END
  417.  
  418.  IF ART=="CD" | ART=="VIDEO" THEN    /* Alle CDs außer MAXI's und SET's */
  419.   DO
  420.    IF GCD=0 THEN
  421.     DO
  422.      SNR.i=(SNR.i)+1
  423.      Feld.Songs.SongInterpret=CDI.i      /* Erster SongInterpret definieren */
  424.      Feld.Songs_1.SongInterpret=CDI.i
  425.      Feld.Songs_2.SongInterpret=CDI.i
  426.      Feld.Songs_3.SongInterpret=CDI.i
  427.      Feld.Songs_4.SongInterpret=CDI.i
  428.      Feld.Songs_5.SongInterpret=CDI.i
  429.      Feld.Songs_6.SongInterpret=CDI.i
  430.      Feld.Songs_7.SongInterpret=CDI.i
  431.      Feld.Songs_8.SongInterpret=CDI.i
  432.      Feld.Songs_9.SongInterpret=CDI.i
  433.      Feld.Songs_10.SongInterpret=CDI.i
  434.      Feld.Songs_11.SongInterpret=CDI.i
  435.      Feld.Songs_12.SongInterpret=CDI.i
  436.      Feld.Songs_13.SongInterpret=CDI.i
  437.      Feld.Songs_14.SongInterpret=CDI.i
  438.      Feld.Songs_15.SongInterpret=CDI.i
  439.      Feld.Songs_16.SongInterpret=CDI.i
  440.      Feld.Songs_17.SongInterpret=CDI.i
  441.      Feld.Songs_18.SongInterpret=CDI.i
  442.      Feld.Songs_19.SongInterpret=CDI.i
  443.      Feld.Songs_20.SongInterpret=CDI.i
  444.      Feld.Songs_21.SongInterpret=CDI.i
  445.      Feld.Songs_22.SongInterpret=CDI.i
  446.      Feld.Songs_23.SongInterpret=CDI.i
  447.      Feld.Songs_24.SongInterpret=CDI.i
  448.      Feld.Songs_25.SongInterpret=CDI.i
  449.      Feld.Songs_26.SongInterpret=CDI.i
  450.      Feld.Songs_27.SongInterpret=CDI.i
  451.      Feld.Songs_28.SongInterpret=CDI.i
  452.      Feld.Songs_29.SongInterpret=CDI.i
  453.      Feld.Songs_30.SongInterpret=CDI.i
  454.      Feld.Songs_31.SongInterpret=CDI.i
  455.      Feld.Songs_32.SongInterpret=CDI.i
  456.      Feld.Songs_33.SongInterpret=CDI.i
  457.      Feld.Songs_34.SongInterpret=CDI.i
  458.      j=1
  459.      DO WHILE j~=SNR.i
  460.       CHANGE STEM Feld FIELDS 'Songs_'j'.SongInterpret'
  461.       j=j+1
  462.      END
  463.     END
  464.    CHANGE STEM Feld FIELDS Songs.SongInterpret
  465.   END
  466.  
  467.  IF ART=="CD " THEN                                          /* NUR CD-SETs */
  468.   DO
  469.    CHANGE STEM Feld FIELDS Songs.SongNr
  470.    j=1
  471.    DO WHILE j~=SNR.i
  472.     CHANGE STEM Feld FIELDS 'Songs_'j'.SongNr'
  473.     j=j+1
  474.    END
  475.   END
  476.  i=i+1
  477. END
  478. REQPARA Time 1
  479. 'MESSAGE "Daten wurden eingetragen!" "Hinweis:"'
  480.